|
CATIA V5 Programmierung : Tif/Jpg in VBscript-titleblock
KarinMueller am 10.07.2003 um 14:28 Uhr (0)
Hallo! In der Online-Hilfe habe ich folgendes gefunden: --------------------------------------------------------- Dim MySheet As DrawingSheet Set MySheet = CATIA.ActiveDocument.DrawingSheets.ActiveSheet Dim MyView As DrawingView Set MyView = MySheet.DrawingViews.ActiveView Dim MyDrawingPicture1 As DrawingPicture Set MyDrawingPicture1 = MyView.DrawingPictures.Add( C: mpall.bmp , 100., 50.) ---------------------------------------------------------------- So kannst Du ein Bild in ein Drawing integrieren ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Drawing erkennen
KarinMueller am 28.10.2003 um 14:46 Uhr (0)
Danke, aber wo ist denn die Funktion TypeOf her bzw wie wende ich sie an? Ist das eine CATIA Funktion (die ich dann im Programming Interface nicht finde)? So, wie die Funktion in dem Beispiel angewendet ist, fuktioniert es jedenfalls nicht... ------------------ Karin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Drawing erkennen
KarinMueller am 28.10.2003 um 15:44 Uhr (0)
Jetzt habe ich selbst eine Lösung gefunden, die auf jeden Fall funktioniert: Dim docName As String Dim iPos As Integer Dim iLaengeDocName As Integer Dim sDocType As String - vollständiger Name des aktiven Dokuments, mit Pfad und Documententyp, zB d/temp/Drawing1.CATDrawing - docName = CATIA.ActiveDocument.FullName - um Dokumententyp herauszufinden, muss Textteil nach CAT gelesen werden - - zuerst Länge der Zeichenkette ermitteln - iLaengeDocName = Len(docName) - an welch ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Smart Pick
KarinMueller am 03.11.2003 um 14:41 Uhr (0)
Hallo, ich möchte interaktiv einen Punkt erstellen lassen (also einen Punkt durch anklicken erzeugen) und dessen Koordinaten auslesen, das nennt sich in CATIA Smart Pick . Leider habe ich nur Funktionen für die Punkteerzeugung gefunden, wo die Koordinaten direkt eingegeben werden müssen. Weiss jemand Rat? ------------------ Karin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Smart Pick
KarinMueller am 06.11.2003 um 14:52 Uhr (0)
Hallo, mit der Methode Indicate2D geht es ganz einfach: Dim Status As String Dim Location(1) As Double Status = CATIA.ActiveDocument.Indicate2D( Bestimmen Sie die Position des Punktes! ,Location) If (StrComp(Status, cancel )) = 0 Then - Benutzer hat Auswahl abgebrochen iError = 1 Else Set Point2D = Fact.CreatePoint(Location(0), Location(1)) End If Danke für den Tipp! ------------------ Karin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Blatt in Drawing einfügen
KarinMueller am 19.11.2003 um 11:19 Uhr (0)
Hallo, ich habe eine Zeichnung mit meheren Blättern. In diese Zeichnung möchte ich ein weiteres Blatt einfügen, das bereits in einer anderen Zeichnung existiert. Ich habe es mit Selektion des gewünschten Blattes probiert, Selektieren geht, aber es wird nicht eingefügt. Warum? Mein Code: Set DrwDocument = CATIA.ActiveDocument Set DrwSheets = DrwDocument.Sheets Set DrwSheet = DrwSheets.Item(1) Set SelMasterDoc = CATIA.ActiveDocument.Selection SelMasterDoc.Add(DrwSheet) -- ... Blatt ko ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Blatt in Zeichnung einfügen
KarinMueller am 19.11.2003 um 11:23 Uhr (0)
Hallo, ich habe eine Zeichnung mit mehreren Blättern und möchte nun aus einer anderen Zeichnung ein Blatt einfügen. Ich habe es so versucht, dass ich das gewünschte Blatt selektiere, kopiere und dann in der Zeichnung, in die das Blatt rein soll, einfüge. Kopieren geht, nur das Einfügen nicht. Warum? Hier mein Code: Set DrwDocument = CATIA.ActiveDocument Set DrwSheets = DrwDocument.Sheets Set DrwSheet = DrwSheets.Item(2) Set SelMasterDoc = CATIA.ActiveDocument.Selection SelMasterDoc.Add( ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : erste sheet löschen?
KarinMueller am 19.11.2003 um 11:31 Uhr (0)
Hallo Giovane, man muss zuerst das erste Blatt selektieren und kann dann mit Delete alle Inhalte der Selektion, also das Blatt, löschen. Das sieht ungefähr so aus: Set SelSheet = CATIA.ActiveDocument.Selection -- erstes Blatt -- Set DrwSheet = CATIA.ActiveDocument.Sheets.Item(1) -- Blatt zur Selektion beifügen -- SelSheet.Add(DrwSheet) -- alle Inhalte der Selektion löschen -- SelSheet.Delete Ich hoffe, das hilft! ------------------ Karin
|
| In das Form CATIA V5 Programmierung wechseln |
